home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_89-02_1989_-_de_Side_B.d64
/
ohg main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
31KB
|
905 lines
3 ifb>1then9006
4 fork=1to13:reada$:next:goto11
5 data a,januar,februar,maerz,april,mai,juni,juli,august,september
6 data oktober,november,dezember
11 fori=0to15:pokev+i,0:next
12 fori=1024to2023:pokei,0:next
21 print"[147]":poke53280,q:poke53281,8:v=53248:pokev+21,0
22 input"[158] wieviele mitspieler (1-4)";m
23 ifm<1orm>4then21
24 pl=m:m=m-1:fori=0tom:print" name von spieler nr"i+1"";:inputn$(i):nexti
25 print" ist alles korrekt (j/n)
26 [161]a$:[139]a$[178]"j"[167]900
27 [139]a$[178]"n"[167]21
28 [137]26
900 a[178][171]1:mu(0)[178]1:mu(1)[178]1:mu(2)[178]1:mu(3)[178]1
904 c[178]20000:ge(0)[178]c:ge(1)[178]c:ge(2)[178]c:ge(3)[178]c
910 ja(0)[178]1970:ja(1)[178]1970:ja(2)[178]1970:ja(3)[178]1970
911 mo(0)[178]1:mo(1)[178]1:mo(2)[178]1:mo(3)[178]1
949 a[178]a[170]1:[139]a[178]pl[167]a[178]0
950 re(a)[178][181](80[172][187](1))[170]1:ra1(a)[178]re(a):ra1(a)[178]ra1(a)[172]200:ra1(a)[178]ra1(a)[170]wa1(a)
951 vr(a)[178][181](40[172][187](1))[170]15
952 vr(a)[178]vr(a)[173]100:t[178]ra1(a):t[178]t[172]vr(a):ra1(a)[178]ra1(a)[171]t
953 wa1(a)[178]ra1(a):wa1(a)[178][181](wa1(a))
960 w1(a)[178][181](250[172][187](1))[170]400:w1(a)[178]w1(a)[171]re(a)[172]5:w1(a)[178]w1(a)[173]100
969 zn(a)[178][181](20[172][187](1))[170]5:[139]ge(a)[177][178]0[167]971
970 c[178]zn(a):d[178]ge(a)[172]c[173]100:ge(a)[178]ge(a)[170]d:ge(a)[178][181](ge(a))
971 o1(a)[178][181](21[172][187](1))[170]15
972 d1(a)[178][181](5[172][187](1))[170]1
973 z1(a)[178][181](9[172][187](1))[170]5:[141]978:[137]982
978 f[178]0:f[178]dp(a)[172]1000:f[178]f[170]tp(a)[172]1500:f[178]f[170]ta(a)[172]6000:f[178]f[170]ol(a)[172]5000:j[178]f:f[178]f[172][171]1
979 ji[178]j:[142]
982 [139]j[177]50000[167]mu(a)[178]1.5
983 [139]j[177]100000[167]mu(a)[178]2
984 [139]j[177]150000[167]mu(a)[178]2.5
985 [139]j[177]200000[167]mu(a)[178]3
986 [139]j[177]300000[167]mu(a)[178]3.5
987 [139]j[177]400000[167]mu(a)[178]4
988 [139]j[177]500000[167]mu(a)[178]5
989 [139]j[177]600000[167]mu(a)[178]6
990 [139]j[177]700000[167]mu(a)[178]7
991 [139]ge(a)[179]f[167]10000
999 [151]53265,65:[151]53269,255
1000 [153]"load":[151]53248[170]22,24:[151]53282,0:[151]50173,22
1001 [151]50174,22:[151]50175,22:[129]i[178]43[164]46:[151]v[170]i,10:[130]:[151]v[170]27,244
1002 [151]v[170]29,240:[151]v[170]11,50:[151]v[170]13,50:[151]v[170]15,50:[151]v[170]23,12
1003 [151]v[170]10,137:[151]v[170]12,185:[151]v[170]14,233:[151]v[170]39,1:[151]53283,12
1004 [151]50171,22:[151]50170,22:[151]v[170]41,8:[151]v[170]42,6:[151]v[170]4,40:[151]v[170]5,114
1005 [151]v[170]6,40:i[178]100000[173]wa1(a):j[178]32[173]i:[151]v[170]7,114[171]j:[151]50168,18:[151]v[170]21,255
1006 [151]v[170]2,111:[151]v[170]3,101:[151]50169,19:[151]v[170]28,2:[151]v[170]40,1:[151]53285,3
1010 mo(a)[178]mo(a)[170]1:[141]7000
1013 [153]" right$mid$(NULL)wait"
1014 [153]" def(NULL)(NULL)(NULL)(NULL)(NULL)wait"
1015 [153]" stopleft$waitforspc(spc(spc(chr$waitopensie besitzen : syserdoel : 00000 (NULL)
1016 print" [144][200][146][129][166][166][166][199][146] [210][210][210][210][210][210][146] [158]wasser : 00000 [255]
1017 [153]" stopleft$waitforspc(spc(spc(chr$wait left$open stopchr$wait sysdattelobst : 00000 t
1018 print" [144][200][146][129][166][166][166][199][146] [129][200][211][211][151][212][213][214][146] [144][199][146] [158]zigaretten : 00000
1019 [153]" stopleft$atnpeeklenchr$wait stopleft$print(NULL)(NULL)(NULL)orsinlogstopchr$wait sysvermoegen $
1020 print" [144][200][196][197][198][199][146] [200][153][172][177][187][165][180][162][144][199][146]
1021 [153]" stopleft$atnpeeklenchr$wait left$printintgetlistabsthenprint+posstopchr$wait openwasserpreis : $
1022 print" [144][200][196][197][198][199][146] [200][155] [175][171] [171][175][144][199][146] [159]dattelpreis : $
1023 [153]" stopleft$atnpeeklenchr$wait (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)wait open1 stange zig. : $
1024 print" [144][200][196][197][198][199][146]ihre firma [159]1 barrel oel : $
1025 [153]"stop*sysgefallener regen verkauf stopankauf
1026 print" [158]betrug :
1027 [153]" sys_ oel _ oel
1028 print"[144]*[158]schuldenzins [158]# datteln # wasser
1029 [153]" sys^ zig. ^ zig.
1030 print"[144]*[158]verluste durch [144][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][146]
1031 [153]" sysverdunstung stopleft$waitmit sysjoy.\ aussuchenstopchr$wait
1032 printtab(19)"[144][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]"
1033 print"[158] durch f1 [158]werden alle guter verkauft"
1034 x=33:y=2:gosub9999:print"[144]weiter";
1049 x=35:z=195
1050 ifoe1(a)>9thenx=34:z=194
1051 ifoe1(a)>99thenx=33:z=193
1052 ifoe1(a)>999thenx=32:z=192
1053 ifoe1(a)>9999thenx=31:y=4:gosub9999:print""oe1(a)"";:goto1059
1054 y=4:gosub9999:print""oe1(a)"";:poke49152+z,48:poke55296+z,1
1059 x=35:z=235
1060 ifwa1(a)>9thenx=34:z=234
1061 ifwa1(a)>99thenx=33:z=233
1062 ifwa1(a)>999thenx=32:z=232
1063 ifwa1(a)>9999thenx=31:y=5:gosub9999:print""wa1(a)"";:goto1069
1064 y=5:gosub9999:print""wa1(a)"";:poke49152+z,48:poke55296+z,1
1069 x=35:z=275
1070 ifda1(a)>9thenx=34:z=274
1071 ifda1(a)>99thenx=33:z=273
1072 ifda1(a)>999thenx=32:z=272
1073 ifda1(a)>9999thenx=31:y=6:gosub9999:print""da1(a)"";:goto1079
1074 y=6:gosub9999:print""da1(a)"";:poke49152+z,48:poke55296+z,1
1079 x=35:z=315
1080 ifzi1(a)>9thenx=34:z=314
1081 ifzi1(a)>99thenx=33:z=313
1082 ifzi1(a)>999thenx=32:z=312
1083 ifzi1(a)>9999thenx=31:y=7:gosub9999:print""zi1(a)"";:goto1088
1084 y=7:gosub9999:print""zi1(a)"";:poke49152+z,48:poke55296+z,1
1088 x=31:y=8:gosub9999:print" ";
1089 ge(a)=int(ge(a)):x=31:y=8:gosub9999:print""ge(a)"";
1090 x=9:y=16:gosub9999:print""re(a)"[219][219]";
1091 vr(a)=vr(a)*100:x=13:y=21:gosub9999:print""vr(a)"%";
1092 x=33:y=10:gosub9999:print""w1(a)"";
1093 x=13:y=18:gosub9999:print""zn(a)"%";
1094 x=33:y=11:gosub9999:print""d1(a)"";
1095 x=33:y=12:gosub9999:print""z1(a)"";
1096 x=33:y=13:gosub9999:print""o1(a)"";:poke53265,155
1098 ifp=2then1111
1099 ifp=3then1121
1100 j=peek(56320):p=1
1101 ifj=126then1110
1102 ifj=123then1200
1103 ifj=125then1300
1104 ifj=119then1400
1105 ifj=122then1800
1106 k=peek(197)
1107 ifk=4then1800
1108 goto1100
1110 gosub2000:x=20:y=15:gosub9999:print"[144]verkauf";:printtab(31)"ankauf";
1111 j=peek(56320):p=2
1112 ifj=126then1119
1113 ifj=123then1500
1114 ifj=119then1700
1115 ifj=125then1600
1116 goto1111
1119 gosub2000
1120 x=31:y=15:gosub9999:print"[144]ankauf";:x=33:y=2:gosub9999:print"weiter";
1121 j=peek(56320):p=3
1122 ifj=111then2100
1123 ifj=126then1125
1124 goto1121
1125 gosub2000:x=33:y=2:gosub9999:print"[144]weiter";
1126 x=20:y=15:gosub9999:print"verkauf";:goto1100
1150 fork=btob-2step-1:poke49152+k,48:poke55296+k,1:next
1151 vr(a)=vr(a)/100:goto1049
1200 gosub2005
1201 x=2:y=23:gosub9999:print"[158]wieviel barrel oel verkaufen :00000"
1202 poke50168,18:pokev+16,1:q=56:pokev,q:pokev+1,228
1209 z=1:l=956:m=47
1210 j=peek(56320)
1211 ifj=123then1220
1212 ifj=119then1230
1213 ifj=126then1240
1214 ifj=125then1250
1215 ifj=111then1260
1216 goto1210
1220 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1210
1221 gosub2015:pokev,q:goto1210
1230 l=l+1:z=z/10:q=q+8:ifq=64thenq=56:z=z*10:l=l-1:goto1210
1231 gosub2015:pokev,q:goto1210
1240 m=m+1:ifm>57thenm=48
1241 gosub2020:poke49152+l,m:poke55296+l,1:goto1210
1250 m=m-1:ifm<48thenm=57
1251 gosub2020:poke49152+l,m:poke55296+l,1:goto1210
1260 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
1261 ifz<=oe1(a)then1264
1262 gosub2025:x=2:y=23:gosub9999:print" das ist unmoeglich ! "
1263 forl=1to1600:next:goto1200
1264 b=z:b=b*o1(a):ge(a)=ge(a)+b:oe1(a)=oe1(a)-z:pokev,0:pokev+1,0
1265 x=2:y=23:gosub9999:print" "
1266 b=194:goto1150
1300 gosub2005
1301 x=2:y=23:gosub9999:print"[158] wieviel t datteln verkaufen :00000"
1302 pokev+16,1:q=56:pokev,q:pokev+1,228
1309 z=1:l=956:m=47
1310 j=peek(56320)
1311 ifj=123then1320
1312 ifj=119then1330
1313 ifj=126then1340
1314 ifj=125then1350
1315 ifj=111then1360
1316 goto1310
1320 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1310
1321 gosub2015:pokev,q:goto1310
1330 l=l+1:z=z/10:q=q+8:ifq=64thenq=56:z=z*10:l=l-1:goto1310
1331 gosub2015:pokev,q:goto1310
1340 m=m+1:ifm>57thenm=48
1341 gosub2020:poke49152+l,m:poke55296+l,1:goto1310
1346 vr(a)=vr(a)/100
1347 fork=274to272step-1:poke49152+k,48:poke55296+k,1:next:goto1049
1350 m=m-1:ifm<48thenm=57
1351 gosub2020:poke49152+l,m:poke55296+l,1:goto1310
1360 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
1361 ifz<=da1(a)then1364
1362 gosub2025:x=3:y=23:gosub9999:print" das ist unmoeglich ! "
1363 forl=1to1600:next:goto1300
1364 b=z:b=b*d1(a):ge(a)=ge(a)+b:da1(a)=da1(a)-z:pokev,0:pokev+1,0
1365 x=3:y=23:gosub9999:print" "
1366 b=274:goto1150
1400 gosub2005
1401 x=2:y=23:gosub9999:print"[158] wieviel zigaetten verkaufen :00000"
1402 pokev+16,1:q=56:pokev,q:pokev+1,228
1409 z=1:l=956:m=47
1410 j=peek(56320)
1411 ifj=123then1420
1412 ifj=119then1430
1413 ifj=126then1440
1414 ifj=125then1450
1415 ifj=111then1460
1416 goto1410
1420 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1410
1421 gosub2015:pokev,q:goto1410
1430 l=l+1:z=z/10:q=q+8:ifq=64thenq=56:z=z*10:l=l-1:goto1410
1431 gosub2015:pokev,q:goto1410
1440 m=m+1:ifm>57thenm=48
1441 gosub2020:poke49152+l,m:poke55296+l,1:goto1410
1450 m=m-1:ifm<48thenm=57
1451 gosub2020:poke49152+l,m:poke55296+l,1:goto1410
1460 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
1461 ifz<=zi1(a)then1464
1462 gosub2025:x=3:y=23:gosub9999:print" das ist unmoeglich ! "
1463 forl=1to1600:next:goto1400
1464 b=z:b=b*z1(a):ge(a)=ge(a)+b:zi1(a)=zi1(a)-z:pokev,0:pokev+1,0
1465 x=3:y=23:gosub9999:print" "
1466 b=314:goto1150
1500 gosub2010
1501 x=2:y=23:gosub9999:print"[158] wieviel oel moechten sie :00000"
1502 pokev+16,1:q=56:pokev,q:pokev+1,228
1509 z=1:l=956:m=47
1510 j=peek(56320)
1511 ifj=123then1520
1512 ifj=119then1530
1513 ifj=126then1540
1514 ifj=125then1550
1515 ifj=111then1560
1516 goto1510
1520 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1510
1521 gosub2015:pokev,q:goto1510
1530 l=l+1:z=z/10:q=q+8:ifq=64thenq=56:z=z*10:l=l-1:goto1510
1531 gosub2015:pokev,q:goto1510
1540 m=m+1:ifm>57thenm=48
1541 gosub2020:poke49152+l,m:poke55296+l,1:goto1510
1550 m=m-1:ifm<48thenm=57
1551 gosub2020:poke49152+l,m:poke55296+l,1:goto1510
1560 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
1561 ifz+oe1(a)<100000then1564
1562 gosub2025:x=6:y=23:gosub9999:print" das ist unmoeglich ! "
1563 forl=1to1600:next:goto1500
1564 b=z:b=b*o1(a):ge(a)=ge(a)-b:oe1(a)=oe1(a)+z:pokev,0:pokev+1,0:gosub1810
1565 x=6:y=23:gosub9999:print" "
1566 b=194:goto1150
1600 gosub2010
1601 x=1:y=23:gosub9999:print"[158] wieviel wasser moechten sie :00000"
1602 pokev+16,1:q=40:pokev,q:pokev+1,228
1609 z=100:l=954:m=47
1610 j=peek(56320)
1611 ifj=123then1620
1612 ifj=119then1630
1613 ifj=126then1640
1614 ifj=125then1650
1615 ifj=111then1660
1616 goto1610
1620 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1610
1621 gosub2015:pokev,q:goto1610
1630 l=l+1:z=z/10:q=q+8:ifq=48thenq=40:z=z*10:l=l-1:goto1610
1631 gosub2015:pokev,q:goto1610
1640 m=m+1:ifm>57thenm=48
1641 gosub2020:poke49152+l,m:poke55296+l,1:goto1610
1650 m=m-1:ifm<48thenm=57
1651 gosub2020:poke49152+l,m:poke55296+l,1:goto1610
1660 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
1661 ifz+wa1(a)<100000then1664
1662 gosub2025:x=3:y=23:gosub9999:print" das ist unmoeglich ! "
1663 forl=1to1600:next:goto1600
1664 b=z:b=b*w1(a):ge(a)=ge(a)-b:wa1(a)=wa1(a)+z:pokev,0:pokev+1,0
1665 x=3:y=23:gosub9999:print" "
1666 b=234:i=100000/wa1(a):j=32/i:pokev+7,114-j:goto1150
1700 gosub2010
1701 x=2:y=23:gosub9999:print"[158] wieviel stangen zigaretten :00000"
1702 pokev+16,1:q=56:pokev,q:pokev+1,228
1709 z=1:l=956:m=47
1710 j=peek(56320)
1711 ifj=123then1720
1712 ifj=119then1730
1713 ifj=126then1740
1714 ifj=125then1750
1715 ifj=111then1760
1716 goto1710
1720 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1710
1721 gosub2015:pokev,q:goto1710
1730 l=l+1:z=z/10:q=q+8:ifq=64thenq=56:z=z*10:l=l-1:goto1710
1731 gosub2015:pokev,q:goto1710
1740 m=m+1:ifm>57thenm=48
1741 gosub2020:poke49152+l,m:poke55296+l,1:goto1710
1750 m=m-1:ifm<48thenm=57
1751 gosub2020:poke49152+l,m:poke55296+l,1:goto1710
1760 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
1761 ifz+zi1(a)<100000then1764
1762 gosub2025:x=4:y=23:gosub9999:print" das ist unmoeglich ! "
1763 forl=1to1600:next:goto1700
1764 b=z:b=b*z1(a):ge(a)=ge(a)-b:zi1(a)=zi1(a)+z:pokev,0:pokev+1,0:gosub1810
1765 x=4:y=23:gosub9999:print" "
1766 b=314:goto1150
1800 b=oe1(a)
1801 c=da1(a)
1802 d=zi1(a)
1803 oe1(a)=oe1(a)-b:ge(a)=ge(a)+o1(a)*b
1804 da1(a)=da1(a)-c:ge(a)=ge(a)+d1(a)*c
1805 zi1(a)=zi1(a)-d:ge(a)=ge(a)+z1(a)*d
1806 x=32:y=4:gosub9999:print"00000";
1807 x=32:y=6:gosub9999:print"00000";
1808 x=32:y=7:gosub9999:print"00000";:x=31:y=8:gosub9999
1809 print" ";:x=31:y=8:gosub9999:print""ge(a)" ";:goto1100
1810 t=int(10*rnd(1))+10:x=19:y=21:gosub9999:print"[158]mehrwertsteuer"t"%";
1811 poke50028,32:b=b*st:b=b/100:ge(a)=ge(a)-b:return
2000 poke828,1:poke829,21:poke830,10:poke831,200:poke832,100:poke833,1
2001 poke834,1:poke835,40:poke836,10:sys52900:return
2005 poke828,1:poke829,21:poke830,9:poke831,50:poke832,10:poke833,1
2006 poke834,1:poke835,70:poke836,10:sys52900:return
2010 poke828,1:poke829,21:poke830,9:poke831,130:poke832,90:poke833,1
2011 poke834,1:poke835,70:poke836,30:sys52900:return
2015 poke828,1:poke829,21:poke830,7:poke831,80:poke832,60:poke833,1
2016 poke834,1:poke835,55:poke836,20:sys52900:return
2020 poke54276,0:poke54273,50:poke54287,20:poke54296,15
2021 poke54277,6:poke54276,21:return
2025 poke828,1:poke829,23:poke830,12:poke831,70:poke832,10:poke833,2
2026 poke834,16:poke835,46:poke836,7:sys52900:return
2034 poke54290,0
2035 poke828,1:poke829,17:poke830,12:poke831,20:poke832,6:poke833,1
2036 poke834,7:poke835,76:poke836,37:sys52900:sys52900:return
2045 poke828,1:poke829,17:poke830,89:poke831,12:poke832,6:poke833,1
2046 poke834,5:poke835,176:poke836,17:sys52900:sys52900:return
2047 poke828,1:poke829,23:poke830,11:poke831,32:poke832,16:poke833,1
2048 poke834,10:poke835,76:poke836,7:sys52900:return
2050 poke828,1:poke829,21:poke830,12:poke831,120:poke832,30:poke833,1
2051 poke834,5:poke835,35:poke836,20:sys52900:return
2052 poke828,1:poke829,23:poke830,11:poke831,32:poke832,16:poke833,1
2053 poke834,10:poke835,76:poke836,10:sys52900:return
2055 poke828,1:poke829,33:poke830,11:poke831,60:poke832,30:poke833,2
2056 poke834,11:poke835,22:poke836,146:sys52900:return
2060 poke828,1:poke829,23:poke830,11:poke831,22:poke832,6:poke833,1
2061 poke834,11:poke835,76:poke836,4:sys52900:return
2065 poke828,1:poke829,23:poke830,11:poke831,60:poke832,30:poke833,1
2066 poke834,5:poke835,59:poke836,16:sys52900:return
2074 si=54272:pokesi+24,15:pokesi+3,5:pokesi+10,5:pokesi+11,0:pokesi+4,0
2075 pokesi+18,0:pokesi+5,13:pokesi+13,0:pokesi+12,12
2076 pokesi+11,65:pokesi+8,2:pokesi+4,65:pokesi+1,2
2077 forn=1to6:fori=150to200step2:pokesi,i:pokesi+7,i+4:nexti
2078 forb=200to150step-2:pokesi,b:pokesi+7,b+4:nextb:next:return
2090 poke828,10:poke828,1:poke829,17:poke830,15:poke831,20:poke832,10:poke833,1
2091 poke834,23:poke835,50:poke836,16:sys52900:return
2100 poke53265,65:x=23:y=4:gosub9999:print"[158]arbeiter : 0000 "
2101 printtab(19)"[158]facharbeiter : 0000 "
2102 printtab(19)"[158] oelfelder : 00 "
2103 printtab(18)"[158]tabakfabriken : 00 "
2104 printtab(17)"[158]tabakplantagen : 00 "
2105 x=16:y=9:gosub9999:print"[158]dattelplantagen : 00 "
2106 x=16:y=10:gosub9999:print" "
2107 printtab(17)"[144][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][146]"
2108 printtab(16)"[144][200][146] [199][146]"
2109 printtab(16)"[200][146][159]wirtschaftskriterien:[144][199][146]"
2110 printtab(16)"[144][200][146] [199][146]"
2111 printtab(16)"[200][146]*[158]1 oelfeld : 10 arb. [144][199][146]"
2112 printtab(16)"[200][146] und 10 facharbeiter [144][199][146]"
2113 printtab(16)"[200][146]*[158]dattelpla.: 40 arb. [144][199][146]"
2114 printtab(16)"[200][146]*[158]tabakplan.: 25 arb. [144][199][146]"
2115 printtab(16)"[200][146]*[158]tabakfabrik braucht:[144][199][146]"
2116 printtab(16)"[200][146] 10 facharbeiter [144][199][146]"
2117 printtab(16)"[200][146] 20 arbeiter [144][199][146]"
2118 printtab(16)"[200][146] 4 tabakplantagen [144][199][146]"
2119 printtab(16)"[144][200][146] [199][146]"
2120 printtab(17)"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]";
2121 x=0:y=15:gosub9999:print"[158] _ [144]arbeiter "
2122 print"[158] einstellen "
2123 print"[158] # [144]facharbeiter "
2124 print"[158] einstellen "
2125 print"[158] ^ [144]arbeiter "
2126 print"[158] entlassen "
2127 print"[158] \ [144]facharbeiter "
2128 print"[158] entlassen "
2130 x=34:y=6:ifol(a)>9thenx=33
2131 gosub9999:print""ol(a)""
2135 x=34:y=7:ifta(a)>9thenx=33
2136 gosub9999:print""ta(a)""
2140 x=34:y=8:iftp(a)>9thenx=33
2141 gosub9999:print""tp(a)""
2145 x=34:y=9:ifdp(a)>9thenx=33
2146 gosub9999:print""dp(a)""
2160 fori=274to394step40:b=peek(i+49152):ifb=32thenpoke49152+i,48:poke55296+i,1
2161 next:x=2:y=23:gosub9999:print" ";
2190 poke53265,65:fori=193to197:poke55296+i,1:next
2191 fori=233to237:poke55296+i,1:next
2200 x=34:y=4:gosub9999:print"0000";:x=36:z=196:poke53265,65
2201 ifar(a)>9thenx=35:z=195
2202 ifar(a)>99thenx=34:z=194
2203 ifar(a)>999thenx=33:y=4:gosub9999:print""ar(a)"";::goto2209
2205 y=4:gosub9999:print""ar(a)"";:poke49152+z,48:poke55296+z,1
2209 x=34:y=5:gosub9999:print"0000";:x=36:z=236
2211 iffa(a)>9thenx=35:z=235
2212 iffa(a)>99thenx=34:z=234
2213 iffa(a)>999thenx=33:y=5:gosub9999:print""fa(a)"";::goto2216
2215 y=5:gosub9999:print""fa(a)"";:poke49152+z,48:poke55296+z,1
2216 x=6:y=13:gosub9999:print"ihre firma"
2217 c=ol(a)*20:c=c+ta(a)*20:c=c+tp(a)*25:c=c+dp(a)*40:d=ol(a)*10:d=d+ta(a)*10
2218 ifc>ar(a)thenfori=193to197:poke55296+i,0:next
2219 ifd>fa(a)thenfori=233to237:poke55296+i,0:next
2220 j=peek(56320):poke53265,155:poke834,1
2221 ifj=123then2240
2222 ifj=125then2340
2223 ifj=119then2440
2224 ifj=126then2540
2225 ifj=111then3000
2226 goto2220
2230 x=6:y=13:gosub9999:print" 0000 ":pokev+16,0:return
2240 gosub2230:x=0:y=15:gosub9999:print"[144]*";
2242 q=120:pokev,q:pokev+1,148
2249 z=1:l=532:m=47
2250 j=peek(56320)
2251 ifj=123then2260
2252 ifj=119then2270
2253 ifj=126then2280
2254 ifj=125then2290
2255 ifj=111then2300
2256 goto2250
2260 z=z*10:q=q-8:l=l-1:ifq=88thenq=96:z=z/10:l=l+1:goto2250
2261 gosub2015:pokev,q:goto2250
2270 l=l+1:z=z/10:q=q+8:ifq=128thenq=120:z=z*10:l=l-1:goto2250
2271 gosub2015:pokev,q:goto2250
2280 m=m+1:ifm>57thenm=48
2281 gosub2020:poke49152+l,m:poke55296+l,1:goto2250
2290 m=m-1:ifm<48thenm=57
2291 gosub2020:poke49152+l,m:poke55296+l,1:goto2250
2300 gosub2700
2301 ifz+ar(a)<=9999then2304
2302 gosub2025:x=2:y=24:gosub9999:print"geht nicht !";
2303 forl=1to1600:next:poke49152+600,32:goto2305
2304 ar(a)=ar(a)+z:pokev,0:pokev+1,0:poke49152+600,32
2305 x=2:y=24:gosub9999:print" ";:pokev+1,0:pokev,0:goto2190
2340 gosub2230:x=0:y=17:gosub9999:print"[144]*";
2342 q=120:pokev,q:pokev+1,148
2349 z=1:l=532:m=47
2350 j=peek(56320)
2351 ifj=123then2360
2352 ifj=119then2370
2353 ifj=126then2380
2354 ifj=125then2390
2355 ifj=111then2400
2356 goto2350
2360 z=z*10:q=q-8:l=l-1:ifq=88thenq=96:z=z/10:l=l+1:goto2350
2361 gosub2015:pokev,q:goto2350
2370 l=l+1:z=z/10:q=q+8:ifq=128thenq=120:z=z*10:l=l-1:goto2350
2371 gosub2015:pokev,q:goto2350
2380 m=m+1:ifm>57thenm=48
2381 gosub2020:poke49152+l,m:poke55296+l,1:goto2350
2390 m=m-1:ifm<48thenm=57
2391 gosub2020:poke49152+l,m:poke55296+l,1:goto2350
2400 gosub2700
2401 ifz+fa(a)<=9999then2404
2402 gosub2025:x=2:y=24:gosub9999:print"geht nicht !";
2403 forl=1to1600:next:poke49152+680,32:goto2405
2404 fa(a)=fa(a)+z:pokev,0:pokev+1,0:poke49152+680,32
2405 x=2:y=24:gosub9999:print" ";:pokev+1,0:pokev,0:goto2190
2440 gosub2230:x=0:y=19:gosub9999:print"[144]*";
2442 q=120:pokev,q:pokev+1,148
2449 z=1:l=532:m=47
2450 j=peek(56320)
2451 ifj=123then2460
2452 ifj=119then2470
2453 ifj=126then2480
2454 ifj=125then2490
2455 ifj=111then2500
2456 goto2450
2460 z=z*10:q=q-8:l=l-1:ifq=88thenq=96:z=z/10:l=l+1:goto2450
2461 gosub2015:pokev,q:goto2450
2470 l=l+1:z=z/10:q=q+8:ifq=128thenq=120:z=z*10:l=l-1:goto2450
2471 gosub2015:pokev,q:goto2450
2480 m=m+1:ifm>57thenm=48
2481 gosub2020:poke49152+l,m:poke55296+l,1:goto2450
2490 m=m-1:ifm<48thenm=57
2491 gosub2020:poke49152+l,m:poke55296+l,1:goto2450
2500 gosub2700
2501 ifar(a)-z>=0then2504
2502 gosub2025:x=2:y=24:gosub9999:print"geht nicht !";
2503 forl=1to1600:next:poke49152+760,32:goto2505
2504 ar(a)=ar(a)-z:pokev,0:pokev+1,0:poke49152+760,32
2505 x=2:y=24:gosub9999:print" ";:pokev+1,0:pokev,0:goto2200
2540 gosub2230:x=0:y=21:gosub9999:print"[144]*";
2542 q=120:pokev,q:pokev+1,148
2549 z=1:l=532:m=47
2550 j=peek(56320)
2551 ifj=123then2560
2552 ifj=119then2570
2553 ifj=126then2580
2554 ifj=125then2590
2555 ifj=111then2600
2556 goto2550
2560 z=z*10:q=q-8:l=l-1:ifq=88thenq=96:z=z/10:l=l+1:goto2550
2561 gosub2015:pokev,q:goto2550
2570 l=l+1:z=z/10:q=q+8:ifq=128thenq=120:z=z*10:l=l-1:goto2550
2571 gosub2015:pokev,q:goto2550
2580 m=m+1:ifm>57thenm=48
2581 gosub2020:poke49152+l,m:poke55296+l,1:goto2550
2590 m=m-1:ifm<48thenm=57
2591 gosub2020:poke49152+l,m:poke55296+l,1:goto2550
2600 gosub2700
2601 iffa(a)-z>=0then2604
2602 gosub2025:x=2:y=24:gosub9999:print"geht nicht !";
2603 forl=1to1600:next:poke49152+840,32:goto2605
2604 fa(a)=fa(a)-z:pokev,0:pokev+1,0:poke49152+840,32
2605 x=2:y=24:gosub9999:print" ";:pokev+1,0:pokev,0:goto2200
2700 z=0:t=.1:fork=0to3:b=peek(49684-k):b=b-48:t=t*10:b=b*t:z=z+b:next:return
3000 v=53248
3001 fori=2to7:pokev+i,0:next:pokev+16,0
3002 poke53265,65:print"[147]";:poke53283,9:poke53281,8:gosub7000
3005 print""
3006 printspc(3)"[153][193][194]
3007 [153][166]3)"printlenstr$ sysdattelplantage anlegen : $"mu(a)[172]3000""
3008 [153][163]3)"printright$right$
3009 printtab(3)"[153][203][204] [158]tabakplantage anlegen : $"mu(a)*4000"
3010 [153][166]3)"(NULL)(NULL)
3011 printspc(3)"[129][207][208] [158]tabakfabrik anlegen : $"mu(a)*20000"
3012 [153][166]3)"stopvalasc
3013 printspc(3)"[144][199][200] [158]nach oel bohren : $"mu(a)*15000""
3014 printspc(3)"[144][213][214]
3015 [153][166]3)"(NULL)(NULL) sysgift verspruehen : $"mu(a)[172]8000""
3016 [153][166]3)"stop09wait
3017 printspc(3)"[217][218] [158]raketensalve auf gegner: $ 35000
3019 [153][166]3)"printcos> sysland roden : $"mu(a)[172]2000""
3020 [153][166]3)"verify12wait
3021 printspc(3)"34[146] [158]land betrachten
3022 [153][166]3)"list56wait
3023 printspc(3)"78[146] [158]ihr vermoegen betraegt : $"ge(a)"";:x=3:y=22:gosub9999
3024 print"[158]mit dem joystick _ [158]geht es weiter"
3025 x=31:y=3:gosub9999:print"[144]*[159]kosten[144]*":gosub978
3026 x=6:y=3:gosub9999:print"[158]schuldenlimit $"ji"";
3028 v=53248:pokev,33:y=73:pokev+1,y:z=1:poke50168,21:poke53265,155
3030 j=peek(56320)
3031 ifj=125then3040
3032 ifj=126then3050
3033 ifj=111then3100
3034 ifj=123then3800
3036 goto3030
3040 z=z+1:ifz=9thenz=1:y=73:pokev+1,y:goto3030
3041 gosub2015:y=y+16:pokev+1,y:goto3030
3050 z=z-1:ifz=0thenz=8:y=185:pokev+1,y:goto3030
3051 gosub2015:y=y-16:pokev+1,y:goto3030
3100 ifz<>6then4000
3101 fork=16to19:x=3:y=k:gosub9999:print" ";:next
3104 x=4:y=16:gosub9999:print"[144][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][146]"
3105 x=3:y=17:gosub9999:print"[200][146] [199][146]"
3106 x=4:y=18:gosub9999:print"[144][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]":pokev+1,172:pokev,59
3107 x=6:y=19:gosub9999:print"[158]waehlen sie":z=a
3110 x=6:y=17:gosub9999:print"[159]"n$(z)"";
3120 j=peek(56320)
3121 ifj=119then3125
3122 ifj=111then9000
3123 goto3120
3125 gosub2047:z=z+1:ifz+1>plthenz=0
3126 x=6:y=17:gosub9999:print" ":goto3110
3800 ifin(a)=10then3810
3801 g=int(rnd(1)*1000):ifg<900then5000
3802 f=int(rnd(1)*240):ki(a)=1:ka(a)=f:f=f+1024:g=peek(f+(250*a)):in(a)=10
3803 ifg=69org=77then3802
3804 pokef+(250*a),81:goto3901
3810 rem ausbreitung
3811 ki(a)=ki(a)+1:g=int(rnd(1)*1000)+1
3812 ifg<250thenka(a)=ka(a)+1:goto3819
3813 ifg<500thenka(a)=ka(a)-1:goto3819
3814 ifg<750thenka(a)=ka(a)+20:goto3819
3815 ifg<1000thenka(a)=ka(a)-20:goto3819
3819 ifka(a)<1orka(a)>220thenki(a)=ki(a)-1:goto3811
3820 b=1024+(250*a):g=peek(ka(a)+b)
3821 ifg=65thendp(a)=dp(a)-1
3822 ifg=73thentp(a)=tp(a)-1
3823 ifg=81thenki(a)=ki(a)-1
3824 ifg=69org=77thenki(a)=ki(a)-1:goto3811
3825 pokeb+ka(a),81
3901 print"[147]":poke53281,11:poke53269,0:poke53265,65
3902 x=9:y=10:gosub9999:print"ihr land wird von einer
3903 [153][163]6)"insektenplage heimgesucht !!!";
3904 [129]k[178]1[164]7:[153]"stop wait";:[130]
3905 x[178]0:y[178]16:[141]9999:[129]l[178]1[164]8
3906 [153]"stop wait";:[130]
3907 [153]" wait";:[151]50151,160
3910 [151]56295,0:[151]53265,155
3911 j[178][194](56320):[139]j[178]111[167]5000
3912 [137]3911
4000 [151]2023,1[170]a:[141]4001:[137]4028
4001 [151]53265,65:[153]"loadprint";:[151]53281,7:[151]53269,2:[151]53282,0:[151]53283,9
4002 [153]">sin*+tab( ^abs+log*abs= tab( deksfghiwaitprint tab(+poslogsin>orsin";
4003 [153]">logsinrndtab( tab( orsinlog>sin*tab( tab(+abs=expabs y wprintwait tab(abs+posand+log>orsin";
4004 [153]"sin>logfre= andlog>*pos+logfre+freand+pos>sin*sinz xprintwait thentab(pos/abstab(+possinor>>";
4005 [153]"/cosabsfre^and /cospos^+andabstab(pos+orsin>*+ defmprintwait tab( ^log+poslogsin>>*";
4006 [153]"andtab( tab( =tab( tab(andabsand-tab(+poscoslogsin>sin* n wprintwait= tab(and+posexpfrepos>*";
4007 [153]"expposfre =and ^logpos+=new+absposand+>>sin>sin z xprintwait fntab( and-fre+postab(pos";
4008 [153]"intabs<fretab( tab(<orfnget++int+possinsin>orsin>+ wprintwait newtab(+posfretab(= tab(";
4009 [153]"abstab(and abs = tab(posnewposposabsposloglogsin>rnd/cos>rnd y xprintwait tab(and-posandtab( =newfre";
4010 [153]"+posand andabs^+pos-fresgn+posrnd/cos/absposandand z wprintwait tab(abstab( = ahbprintwait";
4011 [153]"exp+expabsand-tab( </cosnew/posabstab(absgetand+postab( efghbhuabc printwait";
4012 [153]"sinlog>sin>*andtab( tab(+postab(^+tab(^expabsfretab(and+=tab(and dekfjkef printwait";
4013 [153]">sinsinlogsinsin*fre tab(and and tab(<orsinorsin*expabsfreabs+posfrepos defprintwait";
4014 [153]"+log>+poslogrndpostab( = = tab( ^logcos/log>sin*posand -tab(^abstab( thenandtab(
4015 print"[188][177][177][191][188][187][190][170][163] [165][163] [182] [163][174][170][191][177][191][177][172][170][185][182][163][184][178][175][163] [163]
4016 [153]"sin+>sin>fre tab( -tab(and+=or>sin*sinlog*+abstab(intandtab( tab(absposfretab( ";
4017 [153]">log>>sinposfretab( andintgetnew andabsexplog>rndsinsinrnd*<rnd-andpos+getthentab( ^+pos";
4018 [153]"orsin*log>rndnewabs tab(andfre- and-tab(pos+freorsin>orlog>*orlogorsin*abs+tab(pos=logcos";
4019 [153]">sin*orsinlogcosfreand getthenabs absnew^*>exporsin>>log*ororloglogor>sin>+posfre-tab(abs";
4020 [153]"orsinlog*>sinrnd tab( tab(and=<loglog>rndlog*>or*>orlogorlogor>rndsinlog/cos+abs";
4021 [153]"expsin/*orsinpos=tab( = abs+and->rndlogsinor>logorsin*+orlogorlogor+pos/+cosrndabs+";
4022 [153]"^+posandlogorsin* tab(^abs+orsinnewfresin>orlog>sinsinor*>orsinor>/abs+newtab(+fretab(";
4023 [153]"absand-freandorsin>*pos=freorlog>rndthensgnposand>*>>or*logrndabsfre<orrndabsfretab(gettab( ^";
4024 [153]"exp+posexplogorsin>log>+exp+orsinlogposabsnew^orsin+andthenfnintgetabsthenabs^andtab(-posfretab( ";
4025 [153]"orsinloglog>sinlog*orsin>loglogor*>andorsin>pos+and-tab(andsgntab( abstab(<fretab( ^andtab( ";
4026 [153]"stop wait";:[151]49152[170]999,160
4027 [151]55296[170]999,0:[158]34816:[151]53265,155:[142]
4028 [139]z[179][177]8[167]4032
4029 j[178][194](56320):[139]j[178]111[167]4129
4030 [137]4029
4032 [151]v[170]40,0:[151]50169,23:x[178]16:y[178]45:[151]v[170]2,x:[151]v[170]3,y:c[178]1024[170](250[172]a):d[178]1
4040 j[178][194](56320)
4041 [139]j[178]119[167]4050
4042 [139]j[178]123[167]4070
4043 [139]j[178]125[167]4090
4044 [139]j[178]126[167]4110
4045 [139]j[178]111[167]4159
4046 [139]j[178]122[167]4129
4047 k[178][194](197)
4048 [139]k[178]4[167]4129
4049 [137]4040
4050 x[178]x[170]16:[139]x[178]256[167][151]v[170]16,2:[151]v[170]2,1:x[178]1:c[178]c[170]1:d[178]d[170]2:[137]4150
4051 [139]x[178]81[167]x[178]65:[137]4150
4052 c[178]c[170]1:d[178]d[170]2:[151]v[170]2,x:[137]4150
4070 x[178]x[171]16:[139]x[178]0[167]x[178]16:[137]4150
4071 [139]x[178][171]15[167]x[178]240:[151]v[170]16,0:[151]v[170]2,240:c[178]c[171]1:d[178]d[171]2:[137]4150
4073 c[178]c[171]1:d[178]d[171]2:[151]v[170]2,x:[137]4150
4090 y[178]y[170]16:[139]y[178]237[167]y[178]221:[137]4150
4091 c[178]c[170]20:d[178]d[170]80:[151]v[170]3,y:[137]4150
4110 y[178]y[171]16:[139]y[178]29[167]y[178]45:[137]4150
4111 c[178]c[171]20:d[178]d[171]80:[151]v[170]3,y:[137]4150
4120 [151]828,10:[151]834,1:[139]z[178]1[167][151]c,65:ge(a)[178]ge(a)[171]3000:dp(a)[178]dp(a)[170]1
4121 [139]z[178]2[167][151]c,73:ge(a)[178]ge(a)[171](4000[172]mu(a)):tp(a)[178]tp(a)[170]1
4122 [139]z[178]3[167][151]c,77:ge(a)[178]ge(a)[171](20000[172]mu(a)):ta(a)[178]ta(a)[170]1
4123 [139]z[178]4[167]ge(a)[178]ge(a)[171](15000[172]mu(a)):[137]4200
4124 [139]z[178]5[167]ge(a)[178]ge(a)[171](7500[172]mu(a)):[141]4320:d[178][194](c):[139]d[178]81[167]4300
4125 [139]z[178]7[167]8900
4126 [158]34816:[139]z[179][177]5[167][141]2035
4127 [129]i[178]24[164]28:[151]50169,i:[129]k[178]1[164]30:[130]:[130]:[129]i[178]28[164]23[169][171]1
4128 [151]50169,i:[129]k[178]1[164]20:[130]:[130]:[137]4040
4129 [151]53265,65:[151]v[170]21,255:[137]3000
4150 [141]2045:[137]4040
4159 [139]z[178]7[176]z[178]5[167]4181
4160 h[178]d:h[178]h[170]49152:h[178]h[171]1
4161 b[178][194](h):[139]b[179][177]32[176]b[177]128[167]4170
4162 h[178]h[170]1:b[178][194](h):[139]b[179][177]32[176]b[177]128[167]4170
4163 h[178]h[170]39:b[178][194](h):[139]b[179][177]32[176]b[177]128[167]4170
4164 h[178]h[170]1:b[178][194](h):[139]b[179][177]32[176]b[177]128[167]4170
4165 [137]4120
4170 [151]v[170]9,123:[151]v[170]11,123:[151]v[170]13,123:[151]v[170]15,123:[151]v[170]21,240
4171 x[178]8:y[178]9:[141]9999:[153]" "
4172 x[178]8:y[178]10:[141]9999:[153]" das ist nicht moeglich "
4173 x[178]8:y[178]11:[141]9999:[153]" "
4174 [141]2055:[129]i[178]1[164]750:[130]:[141]2065:[129]i[178]1[164]2000:[130]
4175 [151]53265,65:[151]v[170]9,50:[151]v[170]11,50:[151]v[170]13,50:[151]v[170]15,50
4180 [137]4129
4181 h[178]d:h[178]h[170]49152:h[178]h[171]1
4182 b[178][194](h):[139]b[177]128[167]4170
4183 h[178]h[170]1:b[178][194](h):[139]b[177]128[167]4170
4184 h[178]h[170]39:b[178][194](h):[139]b[177]128[167]4170
4185 h[178]h[170]1:b[178][194](h):[139]b[177]128[167]4170
4186 [137]4120
4200 [143] probebohrung
4201 [151]828,10:[141]2074:b[178][181]([187](1)[172]50)[170]1:b[178]b[170][181]([187](1)[172]50)[170]1
4202 [139]b[177]50[167][151]c,69:ol(a)[178]ol(a)[170]1:[137]4126
4203 [153]"load":[151]53281,0:[151]53269,0
4204 x[178]3:y[178]11:[141]9999:[153]"sie haben leider kein oel gefunden !!"
4205 si[178]54272:[151]si[170]24,15:[151]si[170]5,11:[151]si[170]12,11
4206 [151]si[170]4,0:[151]si[170]15,40:[151]si[170]4,21:[129]k[178]1[164]17
4207 b[178][181]([187](1)[172]180)[170]10:[129]i[178]b[164]b[170]40[169]2:[151]si[170]1,i:[130]:[130]k:[137]4129
4300 [143] gift verspruehen
4301 [151]c,32:[158]34816:ki(a)[178]ki(a)[171]1
4302 [129]i[178]24[164]28:[151]50169,i:[129]k[178]1[164]100:[130]:[130]:[129]i[178]28[164]23[169][171]1
4303 [151]50169,i:[129]k[178]1[164]80:[130]:[130]:[129]i[178]1[164]250:[130]:[139]ki(a)[177]0[167]4040
4305 [151]v[170]9,123:[151]v[170]11,123:[151]v[170]13,123:[151]v[170]15,123:[151]v[170]21,240
4306 x[178]8:y[178]9:[141]9999:[153]" ":in(a)[178]0
4307 x[178]8:y[178]10:[141]9999:[153]" insekten ausgerottet ! "
4308 x[178]8:y[178]11:[141]9999:[153]" "
4309 [141]2055:[129]i[178]1[164]750:[130]:[141]2065:[129]i[178]1[164]2000:[130]
4310 [151]53265,65:[151]v[170]9,50:[151]v[170]11,50:[151]v[170]13,50:[151]v[170]15,50
4311 [137]4129
4320 si[178]54272:[151]si[170]24,15:[151]si[170]6,0:[151]si[170]5,154:[151]si[170]4,0:[151]si[170]1,200
4321 [151]si[170]4,129:[142]
5000 [151]53265,65:[153]"load":[151]53281,8:[151]53269,255:[141]7000
5005 b[178]tp(a):b[178]b[172]450:c[178]dp(a):c[178]c[172]400:d[178]b:d[178]d[170]c:n[178]re(a):n[178]n[172]100
5006 bw(a)[178][181]([187](1)[172]n)[170]d
5009 [153]" stop* openbewaesserung stop*":[153][163]24)"(NULL)"
5010 [153]"sys benoetigtes wasser in (NULL) : 00000
5011 print" [158] wasservorrat betraegt : 00000
5012 [153]"sys wieviel wasser verteilen ? : 00000
5013 fori=1to12:print"[144] [146]";:next
5014 print"[144] [146]";:poke50151,160:poke56295,0
5049 x=31:z=231
5050 ifbw(a)>9thenx=30:z=230
5051 ifbw(a)>99thenx=29:z=229
5052 ifbw(a)>999thenx=28:z=228
5053 ifbw(a)>9999thenx=27:y=5:gosub9999:print""bw(a)"";:goto5059
5054 y=5:gosub9999:print""bw(a)"";:poke49152+z,48:poke55296+z,1
5059 x=31:z=271
5060 ifwa1(a)>9thenx=30:z=270
5061 ifwa1(a)>99thenx=29:z=269
5062 ifwa1(a)>999thenx=28:z=268
5063 ifwa1(a)>9999thenx=27:y=6:gosub9999:print""wa1(a)"";:goto5208
5064 y=6:gosub9999:print""wa1(a)"";:poke49152+z,48:poke55296+z,1
5208 z=1:l=355:m=47:v=53248:pokev+16,1:pokev+1,108:poke50168,18:q=48:pokev,48
5209 poke53265,155
5210 j=peek(56320)
5211 ifj=123then5220
5212 ifj=119then5230
5213 ifj=126then5240
5214 ifj=125then5250
5215 ifj=111then5260
5216 goto5210
5220 z=z*10:q=q-8:l=l-1:ifq=8thenq=16:z=z/10:l=l+1:goto5210
5221 gosub2015:pokev,q:goto5210
5230 l=l+1:z=z/10:q=q+8:ifq=56thenq=48:z=z*10:l=l-1:goto5210
5231 gosub2015:pokev,q:goto5210
5240 m=m+1:ifm>57thenm=48
5241 gosub2020:poke49152+l,m:poke55296+l,1:goto5210
5250 m=m-1:ifm<48thenm=57
5251 gosub2020:poke49152+l,m:poke55296+l,1:goto5210
5260 z=0:t=.1:fork=0to4:b=peek(49507-k):b=b-48:t=t*10:b=b*t:z=z+b:next
5261 ifz<=wa1(a)then5264
5262 gosub2025:x=2:y=10:gosub9999:print" das ist unmoeglich ! "
5263 forl=1to1600:next:goto5265
5264 b=z:wa1(a)=wa1(a)-z:pokev,0:pokev+1,0:goto5300
5265 x=3:y=10:gosub9999:print" "
5266 x=31:y=8:gosub9999:print"00000":goto5208
5300 print"[147]":poke53269,0:gosub2090:x=3:y=1:gosub9999:gosub2090
5301 fori=1to38:printmid$("[144]** [159]die ernte und die wirtschaft [144]**",i,1);
5302 fork=1to19:nextk,i
5303 x=11:y=3:gosub9999:fori=1to18:printmid$("[159]fuer diesen monat",i,1);
5304 fork=1to20:nextk,i
5305 x=0:y=4:gosub9999:zz(a)=0
5306 print"****************************************";
5307 fori=160to200step2:poke55296+i,7:poke55296+i+1,0:next
5310 p=0:p=p+ol(a)*20:p=p+ta(a)*20:p=p+tp(a)*25:p=p+dp(a)*40
5311 q=0:q=q+ol(a)*10:q=q+ta(a)*10
5312 ifp<=ar(a)thena$="[158]sie hatten genug arbeiter":goto5314
5313 l=p:l=l-ar(a):a$=""
5314 ifq=<fa(a)thenb$="[158]sie hatten genug facharbeiter":goto5316
5315 m=q:m=m-fa(a):b$=""
5316 ifb$<>""thenx=4:y=6:gosub9999:printb$:goto5318
5317 x=4:y=6:gosub9999:print"[158]ihnen fehlten"m"[158]facharbeiter"
5318 ifa$<>""thenx=4:y=7:gosub9999:printa$:goto5320
5319 x=4:y=7:gosub9999:print"[158]ihnen fehlten"l"[158]arbeiter"
5320 b=z:b=b*100:b=b/bw(a):c=int(b):q=q*2:e=1:e=e+q+p:z=ar(a):z=z+fa(a)
5321 print"[158] ihre felder wurden zu"c"%[158] bewaessert"
5322 print" das ihnen zur verfuegung gestandene":f=z:f=f*100:f=f/e:h=int(f)
5323 print" potential an arbeiter und facharbeiter":ifh>100thenh=100
5324 print" ermoeglichte eine ausbeute von"h"%
5328 za[178](2[172]c)[170](h[172]4):za[178]za[173]3
5330 da[178][181]([187](1)[172]350)[170]1:l[178]da[172]za:l[178]l[173]100:r[178]da[171]l:da[178]da[171]r:[139]da[179]1[167]da[178]0
5331 da[178]da[172]dp(a):da[178][181](da):da1(a)[178]da1(a)[170]da
5340 tl[178][181]([187](1)[172]250)[170]1:l[178]tl[172]za:l[178]l[173]100:r[178]tl[171]l:tl[178]tl[171]r:[139]tl[179]1[167]tl[178]0
5341 tl[178]tl[172]tp(a):tl[178][181](tl):op[178]ta(a)
5342 k[178]ta(a)[172]4:[139]k[177]tp(a)[167]op[178]tp(a)[173]4
5343 [139]tp(a)[178]0[167]5359
5345 d[178]op[173]tp(a):d[178]d[172]4:tl[178]tl[172]d:tl[178][181](tl)
5346 zi1(a)[178]zi1(a)[170]tl
5359 kl[178]h:kl[178]kl[172]2
5360 ol[178][181]([187](1)[172]150)[170]1:l[178]ol[172]kl:l[178]l[173]100:r[178]ol[171]l:ol[178]ol[171]r:[139]ol[179]1[167]ol[178]0
5361 ol[178]ol[172]ol(a):ol[178][181](ol):oe1(a)[178]oe1(a)[170]ol
5400 m1[178][181]([187](1)[172]10)[170]5:n1[178]m1[172]ar(a)
5401 m2[178][181]([187](1)[172]40)[170]20:n2[178]m2[172]fa(a)
5500 [153]"open der wirtschatfsbericht :
5501 print" [158]sie ernteten dattelobst :"da"t
5502 [153]" syssie erzeugten zigaretten :"tl"stn.
5503 print" [158]sie foerderten erdoel :"ol"bar.
5504 [153]"open die gehaelter :
5506 print"[158] arbeiter :$"m1""
5507 print"[158] facharbeiter :$"m2"";
5508 x=22:y=23:gosub9999:print"'"ar(a)""
5509 x=22:y=24:gosub9999:print"'"fa(a)"";
5510 x=29:y=23:gosub9999:print"= $"n1""
5511 x=29:y=24:gosub9999:print"= $"n2"";:ge(a)=ge(a)-(n1+n2)
5520 j=peek(56320):ifj=111then949
5521 goto5520
7000 pokev+9,50:print"[144] [146] [146]";
7001 ifmo(a)=13thenmo(a)=1:ja(a)=ja(a)+1
7002 pokev+8,89:pokev+43,10:poke50172,22:restore:b=0
7003 b=b+1:reada$:ifb=mo(a)thenreadj$:goto7005
7004 goto7003
7005 printspc(9)""n$(a)""
7006 x=18:y=1:gosub9999:print""j$"";:x=26:y=1:gosub9999:print""ja(a)"":return
8900 b=peek(c):ifb=65orc=73orc=77orc=81then4170
8901 pokec,32:ge(a)=ge(a)-(2000*mu(a)):goto4126
9000 print"[147][153]":poke53281,3:poke53282,0:poke53283,8:printchr$(14):poke53269,0
9001 b=1:poke53264,0:ge(a)=ge(a)-35000
9002 b=b+1:ifb=2thenload"roc*",8,1
9006 print" df":poke54296,0
9007 print" defaf a[194][195]abc
9008 [153]" astr$valf aefdeasch(NULL)vatnpeeklenstr$valascw(NULL)d";
9009 [153]" dascatnvalasc(NULL)dfghright$chr$w(NULL)atnpeeklenchr$v(NULL)(NULL)vright$atnascchr$";
9010 [153]"-expusr usrand and-=<expprintdpeekasc(NULL)wright$atnlenstr$peekascatnvalascasc(NULL)wright$atnascvpeeklenatnlenchr$h";
9011 [153]" apeeklenvstr$peekascstr$valascchr$vright$(NULL)vright$peeklenatnpeeklenstr$valasc(NULL)vatnvalasc";
9012 [153]"bc stoppos printdeascstr$valasc(NULL)v(NULL)gvstr$valascatnvalascvalascright$str$valascchr$h(NULL)atnvalascwp";
9013 [153]"str$valf stopget+ printghright$qvpatnpeekascvright$vhpchr$hivpv(NULL)vstr$valascatnpeekvalchr$w(NULL)";
9014 [153]"chr$hi stopgetabs printm(NULL)(NULL)(NULL)v(NULL)ghright$chr$right$(NULL)w(NULL)mid$(NULL)(NULL)hright$str$valascchr$hright$(NULL)wright$mid$(NULL)(NULL)";
9015 [153]"(NULL)(NULL)ostoprndfnsgnnewint printt(NULL)(NULL)(NULL)(NULL)mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)t(NULL)(NULL)(NULL)gwright$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)t(NULL)";
9016 [153]"(NULL)t verifyorsinsinlog*>listd231u(NULL)(NULL)t(NULL)(NULL)t(NULL)t3453t(NULL)mid$(NULL)(NULL)(NULL)t(NULL)(NULL)t(NULL)(NULL)t(NULL)";
9017 [153]"45668490989^4561t3234t8871231t36t3123456";
9018 [153]"07__^7_^_0^_807123984568^^_8426456987_70";
9019 [153]"^____^____8__0____7_^__^_8__0_08_07^_0_";:[151]50151,31:[151]56295,7
9020 v[178]53248:[151]v[170]21,31:[151]v[170]4,0:[151]v[170]6,0:[151]v[170]8,0:[151]v[170]28,0
9021 [151]50168,30:[151]v,48:[151]v[170]1,196:[151]v[170]39,0:[151]v[170]23,0:[151]v[170]29,0
9022 [151]50169,31:[151]v[170]2,48:[151]v[170]3,196:[151]v[170]40,11:[151]56325,60
9023 [151]v[170]41,7:[151]v[170]42,2:[151]v[170]43,8
9024 [151]50170,35:[151]50171,34:[151]50172,33
9030 [129]i[178]1[164]2000:[130]
9031 [151]820,0:[158]860:[151]v[170]21,31:[141]9070
9032 [151]50170,34:[151]50171,33:[151]50172,32:[141]9060
9033 [151]50170,33:[151]50171,32:[151]50172,35:[141]9060
9034 [151]50170,32:[151]50171,35:[151]50172,34:[141]9060
9035 [151]50170,35:[151]50171,34:[151]50172,33:[141]9060
9036 b[178][194](820):[139]b[178]1[167]9045
9037 [137]9032
9045 [151]53265,65:[153][199](142):[151]si[170]22,10:[137]9100
9060 [129]i[178]1[164]10:[130]:j[178]j[171]1:[151]si[170]22,j:[142]
9070 si[178]54272:[151]si[170]23,243:[151]si[170]24,31:[151]si[170]22,80:j[178]80
9071 [151]si[170]5,0:[151]si[170]4,0:[151]si[170]11,0:[151]si[170]18,0:[151]si[170]12,0
9072 [151]si[170]6,240:[151]si[170]13,160:[151]si[170]4,129:[151]si[170]11,129
9073 [151]si[170]1,15:[151]si[170]8,25:[142]
9100 [151]2023,1[170]z:[141]4001:g[178]1
9101 x[178][181]([187](1)[172]19)[170]1:y[178][181]([187](1)[172]11)[170]1:d[178]y:y[178]y[172]16:d[178]d[172]20[170]x
9105 [151]v[170]21,3:[151]v[170]39,0:[151]v[170]40,0:[151]50168,36:[151]50169,37
9106 y[178]y[170]45:[151]v[170]1,y:y[178]y[170]8:[151]v[170]3,y
9107 c[178]0:b[178]x[172]16:e[178]x[172]16[170]16:f[178]0
9108 [151]v,c:[151]v[170]2,f[170]16:c[178]c[170]2:f[178]f[170]2:[139]c[178]238[167][151]v[170]16,2:f[178]238:[137]9120
9109 [139]c[178]e[167]9140
9110 [139]c[177]b[167]y[178]y[171]1:[151]v[170]3,y:f[178]f[171]2
9111 [137]9108
9120 [151]v,c:[151]v[170]2,f[171]238:c[178]c[170]2:f[178]f[170]2:[139]c[178]254[167][151]v[170]16,3:[137]9130
9121 [139]c[178]e[167]9140
9122 [139]c[177]b[167]y[178]y[171]1:[151]v[170]3,y:f[178]f[171]2
9123 [137]9120
9130 [151]v,c[171]254:[151]v[170]2,f[171]238:c[178]c[170]2:f[178]f[170]2
9131 [139]c[178]e[167]9140
9132 [139]c[177]b[167]y[178]y[171]1:[151]v[170]3,y:f[178]f[171]2
9133 [137]9130
9140 [151]53281,1:[151]si[170]22,90:[151]si[170]4,0:[151]si[170]5,45:[151]si[170]6,0:[151]si[170]11,0
9141 [151]si[170]4,129:[151]si[170]1,8
9142 [151]v[170]21,1:[151]53281,7:[129]i[178]38[164]57:[151]50168,i:[129]k[178]1[164]16
9143 [151]v[170]39,k:[130]:[130]:[151]v[170]21,0
9150 c[178]1024[170](250[172]z):c[178]c[170]d:h[178][194](c):[151]c,32:[158]34816
9151 [139]h[178]65[167]dp(z)[178]dp(z)[171]1
9152 [139]h[178]69[167]ol(z)[178]ol(z)[171]1
9153 [139]h[178]73[167]tp(z)[178]tp(z)[171]1
9154 [139]h[178]77[167]ta(z)[178]ta(z)[171]1
9155 [139]h[178]81[167][151]c,81
9156 g[178]g[170]1:[139]g[178]4[167]9158
9157 [151]v[170]16,0:[141]9070:[151]si[170]22,10:[137]9101
9158 [151]v[170]21,0:[129]i[178]1[164]1000:[130]:[151]53265,65
9159 [151]si[170]24,0:[151]v[170]21,255:[151]v[170]39,1:[151]v[170]16,0
9160 [151]si[170]23,240:[151]v[170]29,240:[137]3000
9999 [151]211,x:[151]214,y:[158]58640:[142]
10000 [143] pfaendung
10001 [151]53269,254:[153]"load":[141]7000:[151]53281,11:[151]v,0
10002 [153]"sys oh weh !! eine schlechte nachricht
10003 print" fuer ihr unternehmen ....
10004 [153]" sie haben sich mit ihren openschulden
10005 print" [158]leider uebernommen !!
10006 [153][163]5)"die pfaendung wird vorgenommen
10007 printtab(5)"[156]******************************
10008 [153]"sys ihre verluste :
10009 print" dattelplantagen :"dp(a)""
10010 print" tabakplantagen :"tp(a)""
10011 print" tabakfabriken :"ta(a)""
10012 print" oelfelder :"ol(a)""
10013 print" vermoegen :$"ge(a)"":poke53265,155
10020 b=1024+a*250:j=0
10021 c=peek(b):ifc=65thenge(a)=ge(a)+1000:dp(a)=dp(a)-1:pokeb,32:goto10040
10022 b=b+1:j=j+1:ifj=250then10024
10023 ifdp(a)>0then10021
10024 b=1024+a*250:j=0
10025 c=peek(b):ifc=73thenge(a)=ge(a)+1500:tp(a)=tp(a)-1:pokeb,32:goto10050
10026 b=b+1:j=j+1:ifj=250then10028
10027 iftp(a)>0then10025
10028 b=1024+a*250:j=0
10029 c=peek(b):ifc=77thenge(a)=ge(a)+6000:ta(a)=ta(a)-1:pokeb,32:goto10060
10030 b=b+1:j=j+1:ifj=250then10032
10031 ifta(a)>0then10029
10032 b=1024+a*250:j=0
10033 c=peek(b):ifc=69thenge(a)=ge(a)+5000:ol(a)=ol(a)-1:pokeb,32:goto10070
10034 b=b+1:j=j+1:ifj=250then10036
10035 ifol(a)>0then10033
10036 print"[158] ihre firma hat konkurs angemeldet !!!
10037 oe1(a)[178]0:da1(a)[178]0:zi1(a)[178]0:ge(a)[178]10000:mu(a)[178]1:in(a)[178]0:ki(a)[178]0
10038 i[178](a[172]250)[170]1024:j[178](a[172]250)[170]1274:[129]b[178]i[164]j:[151]b,0:[130]:[137]10103
10040 [141]2047:x[178]20:y[178]16:[141]9999:[153]""dp(a)"":[139]dp(a)[179]10[167][151]49814,32
10041 [141]10080:[139]ge(a)[179]f[167]10022
10042 [137]10100
10050 [141]2052:x[178]20:y[178]17:[141]9999:[153]""tp(a)"":[139]tp(a)[179]10[167][151]49854,32
10051 [141]10080:[139]ge(a)[179]f[167]10026
10052 [137]10100
10060 [141]2060:x[178]20:y[178]18:[141]9999:[153]""ta(a)"":[139]ta(a)[179]10[167][151]49894,32
10061 [141]10080:[139]ge(a)[179]f[167]10030
10062 [137]10100
10070 [141]2060:x[178]20:y[178]19:[141]9999:[153]""ol(a)"":[139]ol(a)[179]10[167][151]49934,32
10071 [141]10080:[139]ge(a)[179]f[167]10034
10072 [137]10100
10080 x[178]21:y[178]21:[141]9999:[153]" ";:x[178]21:y[178]21:[141]9999:[153]""ge(a)""
10081 [142]
10100 [153][163]5)" o.k ihr schuldenlimit wurde
10101 printtab(10)"wieder erreicht !!!";
10102 gosub2050:fori=1to1000:next
10103 j=peek(56320):ifj=111thenpoke53281,8:p=0:goto999
10104 goto10103